unit uLib;

interface

uses Classes, Forms;

procedure AbreForm(aClasseForm: TComponentClass; aForm: TForm);

implementation

procedure AbreForm(aClasseForm: TComponentClass; aForm: TForm);
begin
  Application.CreateForm(aClasseForm, aForm);
  try
    aForm.ShowModal;
  finally
    aForm.Free;
  end;
end;

end.
